home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
utilities
/
pu374.dms
/
pu374.adf
/
LhaIntuiv1.1
/
Script
< prev
next >
Wrap
Text File
|
1992-09-02
|
2KB
|
59 lines
; $ver: Lethal-Archiver-Intuition 1.1 (17.4.93)
; oh! the wonders of Amigados 3.
; Some months ago I dreamed of making lha intuitive.
; Now due to the brilliant Amigados 3 I've done it
C:requestchoice >env:ready "Lethal Lha intuitive" "Are you ready to use the Lethal! intuitive archiver" "YES" "CANCEL"
if $ready eq "0"
C:endcli
endif
LAB start
C:requestchoice >env:operation "Lethal Lha Intuitive" "Choose the operation you wish to perform" "Add file" "Extract File" "List archive" "Delete File" "QUIT"
if $operation eq "0"
C:endcli
endif
if $operation eq "1"
skip Add
endif
if $operation eq "2"
skip Extract
endif
if $operation eq "3"
skip List
endif
if $operation eq "4"
skip Delete
endif
LAB Add
echo "Please select archive name"
C:requestfile >env:archivename TITLE="Archive name?"
echo "Please select file to add to archive"
C:requestfile >env:filename TITLE="Filename"
C:Lha a $archivename $filename
skip end
LAB Extract
echo "Please select Archivename"
C:requestfile >env:archivename TITLE="Archive Name?"
echo "Please select destination directory where extracted files will go"
C:requestfile >env:destdir TITLE="Destination Directory?"
C:lha x $archivename $destdir
skip end
LAB List
echo "Please select archive to list"
echo "Press CTRL-C to end"
C:requestfile >env:archivename TITLE="Archive Name?"
C:lha vv $archivename
C:wait 30 secs
skip end
Lab Delete
echo "Please select archive to delete from"
C:requestfile >env:archivename TITLE="Archive Name"
echo "Please enter name of file to delete"
C:requestfile >env:file TITLE="File to remove from archive"
C:lha d $archivename $file
Skip END
Lab END
C:Requestchoice >env:again "Lethal Lha Intuitive" "Do you want to perform another operation?" "YES" "QUIT"
if $again eq "0"
C:endcli
endif
skip start back